home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 4 / MacMania 4.toast / / Demo's / Igor Demo Pro / 3 PutContentsIn Igor Pro Folder / Technical Notes / Igor Tech Notes / TN007 Multi-variate fits / Multi-variate fit Folder / history < prev    next >
Text File  |  1990-05-15  |  897b  |  27 lines
  1. •Make xdata1=sin(p/20),xdata2=cos(p/15),xdata3=sqrt(p)
  2. •Make ydata= 1.2*xdata1 + 2.3*xdata2 + 0.07*xdata3 | just a simple linear combination
  3. •Make x1,x2,x3
  4. •Duplicate/O xdata1,x1
  5. •Duplicate/O xdata2,x2
  6. •Duplicate/O xdata3,x3
  7. •Make fooparam={1,2,0.1}
  8. •Duplicate ydata,ydata_fit
  9. •Display ydata,ydata_fit
  10. •ydata= 1.2*xdata1 + 2.3*xdata2 + 0.07*xdata3 + gnoise(0.2)
  11. •ydata_fit= foofunc(fooparam,P)
  12. •FuncFit foofunc fooparam ydata /D=ydata_fit 
  13.   Fit converged properly
  14.   ydata_fit= foofunc(fooparam,x)
  15.   fooparam={1.2226,2.3504,0.066544}
  16.   V_chisq= 4.45568; V_npnts= 128; V_numNaNs= 0; V_numINFs= 0; 
  17.   W_sigma={0.0311,0.0311,0.00216}
  18. •Modify mode(ydata)=2,lsize(ydata_fit)=0.5,lsmooth(ydata_fit)=1
  19. •Modify lsize(ydata)=2
  20. •RunDemo()
  21. •RunDemo()
  22. •MoveWindow/P 3,41,505,238; MoveWindow/C 3,260,506,338
  23. •| This experiment contains a very simple demo of a mult-variate fit
  24. •| There is not much to see
  25. • 
  26.  
  27.